pam k=50
pam_clust50 <- pam(DM,diss = TRUE,k=50)
png('results/pam50_gigant_lp.png',width = 6,height = 6, units = 'in', res = 300)
plot_pam_giant_graph(M,pam_clust50)
Joining, by = "names"
Joining, by = "cluster"
dev.off()
null device
1
png('results/pam50_mst_lp.png',width = 6,height = 6, units = 'in', res = 300)
plot_pam_max_span(M,pam_clust50)
Joining, by = "names"
Joining, by = "cluster"
dev.off()
null device
1
tibble(k = '2', medioide= pam_clust2$medoids) %>%
# bind_rows(tibble(k = '10', medioide= pam_clust10$medoids)) %>%
# bind_rows(tibble(k = 50, medioide= pam_clust50$medoids)) %>%
left_join(clasificacion %>% select(-id)) %>%
xtable::xtable(., caption='Medioides', label='table:pam') %>%
xtable::print.xtable(.,include.rownames=FALSE)
Joining, by = "medioide"
% latex table generated in R 3.5.1 by xtable 1.8-3 package
% Sat Apr 13 17:40:10 2019
\begin{table}[ht]
\centering
\begin{tabular}{lll}
\hline
k & medioide & sitc\_product\_name\_short\_en \\
\hline
2 & 0589 & Fruit prepared or preserved, nes \\
2 & 7413 & Industrial and laboratory furnaces and ovens, etc, parts, nes \\
\hline
\end{tabular}
\caption{Medioides}
\label{table:pam}
\end{table}
tibble(k = '10', medioide= pam_clust10$medoids) %>%
left_join(clasificacion %>% select(-id)) %>%
xtable::xtable(., caption='Medioides', label='table:pam') %>%
xtable::print.xtable(.,include.rownames=FALSE)
Joining, by = "medioide"
% latex table generated in R 3.5.1 by xtable 1.8-3 package
% Sat Apr 13 17:40:34 2019
\begin{table}[ht]
\centering
\begin{tabular}{lll}
\hline
k & medioide & sitc\_product\_name\_short\_en \\
\hline
10 & 6911 & Structures and parts of, of iron, steel; plates, rods, and the like \\
10 & 0542 & Beans, peas, other leguminous vegetables, dried, shelled \\
10 & 0116 & Edible offal of headings 0011-5 and 0015, fresh, chilled or frozen \\
10 & 8452 & Outerwear knitted or crocheted, not elastic nor rubberized; womens, girls, infants, suits, dresses, etc, knitted, crocheted \\
10 & 7429 & Parts, nes of pumps and liquids elevators falling in heading 742 \\
10 & 0721 & Cocoa beans, raw, roasted \\
10 & 6536 & Fabrics, woven, 85\% plus of discontinuous regenerated fibres \\
10 & 5827 & Silicones \\
10 & 2816 & Iron ore agglomerates \\
10 & 7764 & Electronic microcircuits \\
\hline
\end{tabular}
\caption{Medioides}
\label{table:pam}
\end{table}
tibble(k = '50', medioide= pam_clust50$medoids) %>%
left_join(clasificacion) %>%
xtable::xtable(., caption='Medioides', label='table:pam') %>%
xtable::print.xtable(.,include.rownames=FALSE)
Joining, by = "medioide"
% latex table generated in R 3.5.1 by xtable 1.8-3 package
% Sat Apr 13 17:40:36 2019
\begin{table}[ht]
\centering
\begin{tabular}{llrl}
\hline
k & medioide & id & sitc\_product\_name\_short\_en \\
\hline
50 & 0484 & 696.00 & Bakery products \\
50 & 6115 & 995.00 & Sheep and lamb skin leather \\
50 & 0113 & 658.00 & Pig meat fresh, chilled or frozen \\
50 & 5542 & 949.00 & Organic surface-active agents, nes \\
50 & 0116 & 661.00 & Edible offal of headings 0011-5 and 0015, fresh, chilled or frozen \\
50 & 2686 & 813.00 & Waste of sheep's or lambs' wool, or of other animal hair, nes \\
50 & 6635 & 1094.00 & Wool; expanding or insulating mineral materials, nes \\
50 & 0565 & 706.00 & Vegetables, prepared or preserved, nes \\
50 & 0344 & 677.00 & Fish fillets, frozen \\
50 & 0412 & 683.00 & Other wheat and meslin, unmilled \\
50 & 2221 & 762.00 & Groundnuts, green \\
50 & 7132 & 1189.00 & Motor vehicles piston engines, headings: 722; 78; 74411 and 95101 \\
50 & 0542 & 699.00 & Beans, peas, other leguminous vegetables, dried, shelled \\
50 & 0571 & 707.00 & Oranges, mandarins, etc, fresh or dried \\
50 & 0611 & 720.00 & Sugars, beet and cane, raw, solid \\
50 & 6536 & 1051.00 & Fabrics, woven, 85\% plus of discontinuous regenerated fibres \\
50 & 2483 & 785.00 & Wood, non-coniferous species, sawn, planed, tongued, grooved, etc \\
50 & 4242 & 888.00 & Palm oil \\
50 & 0742 & 733.00 & Mate \\
50 & 8435 & 1358.00 & Womens, girls, infants outerwear, textile, not knitted or crocheted; blouses \\
50 & 6744 & 1127.00 & Sheet, plates, rolled of thickness 4,75mm plus, of iron or steel \\
50 & 2640 & 798.00 & Jute, other textile bast fibres, nes, raw, processed but not spun \\
50 & 5827 & 964.00 & Silicones \\
50 & 6594 & 1081.00 & Carpets, rugs, mats, of wool or fine animal hair \\
50 & 6330 & 1012.00 & Cork manufactures \\
50 & 2518 & 790.00 & Chemical wood pulp, sulphite \\
50 & 6511 & 1036.00 & Silk yarn and spun from noil or waste; silkworm gut \\
50 & 6516 & 1041.00 & Yarn containing less than 85\% of discontinuous synthetic fibres \\
50 & 2655 & 802.00 & Manila hemp, raw or processed but not spun, its tow and waste \\
50 & 7369 & 1234.00 & Parts, nes of and accessories for machine-tools of heading 736 \\
50 & 5623 & 953.00 & Mineral or chemical fertilizer, potassic \\
50 & 6911 & 1159.00 & Structures and parts of, of iron, steel; plates, rods, and the like \\
50 & 3222 & 860.00 & Other coal, not agglomerated \\
50 & 6672 & 1114.00 & Diamonds (non-industrial), not mounted or set \\
50 & 2875 & 843.00 & Zinc ores and concentrates \\
50 & 2816 & 836.00 & Iron ore agglomerates \\
50 & 5241 & 928.00 & Radio-active chemical elements, isotopes etc \\
50 & 5225 & 923.00 & Inorganic bases and metallic oxides, hydroxides and peroxides \\
50 & 2881 & 847.00 & Ash and residues, nes \\
50 & 8481 & 1373.00 & Articles of apparel, clothing accessories of leather \\
50 & 3341 & 866.00 & Gasoline and other light oils \\
50 & 5162 & 916.00 & Aldehyde, ketone and quinone-function compounds \\
50 & 7269 & 1224.00 & Parts, nes of machines falling within headings 72631, 7264, 7267 \\
50 & 7492 & 1262.00 & Cocks, valves and similar appliances, for pipes boiler shells, etc \\
50 & 7757 & 1301.00 & Domestic electro-mechanical appliances; and parts thereof, nes \\
50 & 7245 & 1213.00 & Weaving, knitting, etc, machines, machines for preparing yarns, etc \\
50 & 7763 & 1305.00 & Diodes, transistors, photocells, etc \\
50 & 7628 & 1280.00 & Other radio receivers \\
50 & 7525 & 1272.00 & Peripheral units, including control and adapting units \\
50 & 7144 & 1193.00 & Reaction engines \\
\hline
\end{tabular}
\caption{Medioides}
\label{table:pam}
\end{table}